home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
pcboard
/
gamble11.zip
/
LUCK1.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-05-04
|
3KB
|
144 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
;------------------------------------------------------------------------------
:LABEL001
STRING002 = 0
STRING003 = "n"
Cls
PrintLn
PrintLn " @X4C┌─────────────────────────────────────────────────────────────────────┐@X07"
PrintLn " @X4C│ @X4EDumb Luck - 1:1 Odds - Win what you bet @X4C│@X07"
PrintLn " @X4C│ @X4Eby Brian Sweeney @ The Laser BBS (914.734.7045) @X4C│@X07"
PrintLn " @X4C│@XCA UNREGISTERED EVALUATION VERSION @X4C│@X07"
PrintLn " @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
PrintLn " @X4C│@X4F You may bet as much time as you have today. If you loose, the @X4C│@X07"
PrintLn " @X4C│@X4F amount of time you bet will be deducted from your time limit for @X4C│@X07"
PrintLn " @X4C│@X4F today. If you win, the amount you bet will be added to the time @X4C│@X07"
PrintLn " @X4C│@X4F you have remaining for THIS CALL. When you logoff, you will loose @X4C│@X07"
PrintLn " @X4C│@X4F any time you won unless you deposit it in the time bank. @X4C│@X07"
PrintLn " @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
PrintLn " @X4C│ @X4EYou have @X4F@TIMELEFT:4@ @X4Eminutes remaining today @X4C│@X07"
PrintLn " @X4C└─────────────────────────────────────────────────────────────────────┘@X07"
InputStr "How many minutes do you wish to gamble (Q)uit", STRING002, 14, 2, "1234567890qQ", 8
If (STRING002 == "") Goto LABEL001
If (STRING002 == "Q") End
If (STRING002 == "0") Goto LABEL001
If (STRING002 > MinLeft()) Then
PrintLn
PrintLn "You do not have that much time left!"
PrintLn
PrintLn "@WAIT@"
Goto LABEL001
Endif
If ((STRING003 == "n") && (STRING002 <> 30)) Goto LABEL003
If (STRING003 == "n") Gosub LABEL002
If (Random(9) < 4) Then
AdjTime STRING002
Newlines 2
Print "@X0AYou just WON "
Print STRING002
InputYN " minutes! Do you wish to try again", STRING001, 10
If (STRING003 == "n") Gosub LABEL002
If ((STRING001 == "Y") || (STRING001 == "y")) Goto LABEL001
If ((STRING001 == "N") || (STRING001 == "n")) End
Else
AdjTime -STRING002
Newlines 2
Print "@X0BSorry, you lost "
Print STRING002
InputYN " minutes... Do you wish to try again", STRING001, 11
If (STRING003 == "n") Gosub LABEL002
If ((STRING001 == "Y") || (STRING001 == "y")) Goto LABEL001
If ((STRING001 == "N") || (STRING001 == "n")) End
Endif
:LABEL002
PrintLn
PrintLn "@X0FPausing for 10 seconds to encourage registration..."
Delay 182
Return
:LABEL003
AnsiPos 1, 21
PrintLn "@X0FIn this unregistered version you may only bet 30 minutes each time."
Wait
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 1 Cls
; 1 Wait
; 10 Goto
; 2 Let
; 4 Print
; 21 PrintLn
; 13 If
; 2 AdjTime
; 1 InputStr
; 2 InputYN
; 3 Gosub
; 1 Return
; 1 Delay
; 2 Newlines
; 1 AnsiPos
;
;
; ■ Functions used :
;
; 1 -
; 15 ==
; 1 <>
; 1 <
; 1 >
; 2 !
; 1 &&
; 4 ||
; 1 Random()
; 1 MinLeft()
;
;------------------------------------------------------------------------------
;
; Analysis flags : A
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------